home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Games / CrossfireII_Demo / mission / XCompilerScript14 < prev   
Text File  |  2003-02-23  |  6KB  |  301 lines
  1. // Großangriff auf Frontbase
  2.  
  3. LadeRaumer AlienRaumer1
  4. LadeRaumer AlienRaumer2
  5. LadeRaumer RebelBomber3
  6. LadeRaumer RebelBomber4
  7. LadeRaumer Spieler4
  8. LadeRaumer UWBomber4
  9. LadeRaumer UWBomber2
  10. LadeRaumer RebellenKBoot
  11. LadeRaumer RebellenTurm2
  12. LadeRaumer AlienKBoot
  13. LadeRaumer AlienTurm
  14.  
  15. LadeBild "Mission/Bild14_1"
  16. ZeigeText 1
  17. Einblenden
  18. WarteTaste
  19. Ausblenden
  20.  
  21. NewShip 57, Transporter1, -1, 0, -1
  22. NewShip 57, Spieler4, -1, 0, -1, WirTot
  23. SetVar RS_Kohle(0), 1000
  24. MachMaShop 24, "Grafik/Hangar2", 4
  25.  
  26. StartMission 14
  27.  
  28. // Spieler
  29. NewShip 84, Spieler4, , 0, 1, WirTot
  30. SetVar RS_Richtung(0), 40
  31. // Mit-Spieler
  32. //NewShip 45, UWBomber2, FolgeMir, 1, 1
  33. //ChgAim 1, 0
  34. //AddWaffe 1, 4  AddWaffe 1, 4  AddWaffe 1, 4
  35. //AddWaffe 1, 9  AddWaffe 1, 9  AddWaffe 1, 9
  36. //AddWaffe 1, 38  AddWaffe 1, 38  AddWaffe 1, 38
  37.  
  38. // die AlienStation
  39. NewShip 71, StationsDummy1, DummSchlumpf, 9, 7
  40. ChgCtrl 9, Computer1, , StationAktiv
  41. SetVar RS_Fixed(9), -1
  42. ChgFreund 6, 7, 0   ChgFreund 1, 7, 0
  43. SetVar RS_PosX(9), 32512  SetVar RS_PosY(9), 37376
  44. SetVar RS_Energie(9), 10000
  45.  
  46. // Abwehrtürme der AlienStation
  47. NewShip 70, AlienRakStation, Station2, 10, 6, StationTot
  48. ChgCtrl 10, DummSchlumpf, StationEntdeckt, StationAktiv
  49. SetVar RS_PosX(10), 27136   SetVar RS_PosY(10), 54784
  50. SetVar RS_Fixed(10), -1     SetVar RS_Richtung(10), 24
  51.  
  52. NewShip 71, AlienRakStation, Station2, 11, 6, StationTot
  53. ChgCtrl 11, DummSchlumpf, StationEntdeckt, StationAktiv
  54. SetVar RS_PosX(11), 45592   SetVar RS_PosY(11), 28160
  55. SetVar RS_Fixed(11), -1     SetVar RS_Richtung(11), 24
  56.  
  57. // Grüne Station-Freunde
  58. NewShip 61, AlienRaumer2, DummSchlumpf, 12, 6, StationTot
  59. ChgCtrl 12, DummSchlumpf, StationEntdeckt, StationAktiv
  60. Setvar RS_Richtung( 12), 24
  61. NewShip 7, AlienRaumer2, DummSchlumpf, 13, 6, StationTot
  62. ChgCtrl 13, DummSchlumpf, StationEntdeckt, StationAktiv
  63. SetVar RS_Richtung( 13), 16
  64.  
  65. SetVar G, 0
  66.  
  67. // Patrouille
  68. NewShip 100, AlienRaumer2, Patrol, 15, 6, PatrolTot
  69. ChgCtrl 15, Patrol, PatrolEntdeckt, PatrolEntdeckt
  70. //AddWaffe 15, 69
  71. ChgAim 15, , 84
  72.  
  73. NewShip 107, AlienRaumer2, Patrol, 16, 6, PatrolTot
  74. ChgCtrl 16, Patrol, PatrolEntdeckt, PatrolEntdeckt
  75. //AddWaffe 16, 41   AddWaffe 16, 41   AddWaffe 16, 41
  76. ChgAim 16, , 84
  77.  
  78. SpieleMusik "Musik/Story5"
  79.  
  80. Wait 20
  81. Text 38, 50, 6
  82. Wait 60
  83. Text 38, 50, 7
  84. ZeigeInfo Pfeil_N
  85.  
  86. Setvar F, 2
  87.  
  88. // Warten bis die Patrouille tot ist
  89. SetMarke Hualp
  90. Wait 10
  91. if(F>0) { Goto Hualp }
  92.  
  93. SpieleMusik "Musik/Story5"
  94.  
  95. // Mitflieger wieder anleinen
  96. //ChgCtrl 1, FolgeMir
  97. //ChgChef 1, 0
  98.  
  99. Wait 20
  100. Text 1, 50, 9, 0
  101.  
  102. // Warten, bis er die Station entdeckt hat
  103. SetMarke HiffNick
  104. Wait 10
  105. if(G=0) { Goto HiffNick }
  106.  
  107. // Texten und zurückziehen
  108. Text 1, 50, 11, 0
  109. Wait 20
  110. ChgCtrl 1, DummSchlumpf
  111. ChgAim 1, , 28
  112. Wait 50
  113. Text 1, 50, 12, 0
  114. Wait 90
  115. Text 38, 50, 13
  116. Wait 80
  117. Text 1, 50, 14, 0
  118. Wait 140
  119. Text 1, 50, 15, 0
  120.  
  121. Wait 80
  122. Text 38, 50, 16
  123. Wait 60
  124. Text 38, 50, 17
  125. Wait 60
  126. Text 38, 50, 18
  127. Wait 60
  128. Text 38, 50, 19
  129. Wait 60
  130. Text 38, 50, 20
  131.  
  132. Wait 90
  133. Text 1, 50, 21, 0
  134.  
  135. Wait 200
  136. Text 1, 50, 22, 0
  137.  
  138. // dicken Alienkreuzer erscheinen lassen
  139. NewShip 69, AlienKBoot, PapaFaehrt, 20, 6, StationTot
  140. SetVar RS_Richtung(20), 16
  141. SetVar RS_Schatten(20), -1
  142.  
  143. NewShip 69, AlienTurm, Station2, 21, 6
  144. Add RS_PosX( 21), -4500   Add RS_PosY(21), 1280
  145. Link 20, 21
  146. SetVar RS_Richtung(21), 0
  147. Limit 21, 40, 24
  148.  
  149. NewShip 69, AlienTurm, Station2, 22, 6
  150. Add RS_PosX( 22), 4500   Add RS_PosY(22), 1280
  151. Link 20, 22
  152. SetVar RS_Richtung(22), 32
  153. Limit 22, 8, 56
  154.  
  155. // Begleiter
  156. NewShip 69, AlienRaumer2, Computer5, 23, 6, StationTot
  157. AddWaffe 23, 69   Add RS_PosY(23), 8000
  158. NewShip 69, AlienRaumer2, Computer5, 24, 6, StationTot
  159. AddWaffe 24, 72   Add RS_PosY(24), 8000  Add RS_PosX(24), -4000
  160.  
  161. Add G, 3
  162.  
  163. SpieleMusik "Musik/Story4"
  164.  
  165. Wait 60
  166. Text 1, 50, 23, 0
  167.  
  168. Wait 100
  169. Text 38, 50, 24
  170.  
  171. Wait 90
  172. Text 1, 50, 25, 0
  173.  
  174. // Freds Einsatztruppe losjagen
  175. Wait 2000
  176. Text 28, 50, 26
  177. SpieleMusik "Musik/Story3"
  178.  
  179. NewShip 72, RebellenKBoot, PapaFaehrt, 30, 1
  180. SetVar RS_Richtung( 30), 48
  181. Add RS_Energie( 30), 1000
  182.  
  183. NewShip 72, RebellenTurm2, Station2, 31, 1
  184. Add RS_PosX( 31), 4500   Add RS_PosY(31), 1280
  185. Link 30, 31
  186. SetVar RS_Richtung(31), 32
  187. Limit 31, 8, 56
  188.  
  189. NewShip 72, RebellenTurm2, Station2, 32, 1
  190. Add RS_PosX( 32), -4500   Add RS_PosY(32), 1280
  191. Link 30, 32
  192. SetVar RS_Richtung(32), 0
  193. Limit 32, 24, 40
  194.  
  195. NewShip 122, RebelBomber3, Computer5, 33, 1
  196. AddWaffe 33, 38   AddWaffe 33, 38  AddWaffe 33, 38
  197. Add RS_Energie( 33), 200
  198. NewShip 122, RebelBomber4, Computer5, 34, 1
  199. AddWaffe 34, 9  AddWaffe 34, 9  AddWaffe 34, 9
  200. Add RS_Energie( 34), 200
  201. Add RS_PosX(34), 5000
  202. NewShip 121, UWBomber2, Computer5, 35, 1
  203. AddWaffe 35, 4  AddWaffe 35, 4  AddWaffe 35, 4
  204. Add RS_Energie( 35), 200
  205.  
  206. Wait 80
  207. Text 1, 50, 27, 0
  208.  
  209. // Warten, bis alles tot
  210. SetMarke HirchMirch
  211. Wait 20
  212. //Text 1, 20, 50, G
  213. if(G>0) { Goto HirchMirch }
  214.  
  215. Wait 30
  216. Text 28, 50, 28, 30
  217.  
  218. Wait 80
  219. Text 1, 50, 29, 0
  220. Wait 20
  221. ZeigeInfo MSuccess
  222. Wait 20
  223. EndMission -1
  224. Wait 100
  225.  
  226. // MissionsEnde
  227. LadeBild "Mission/DemoEnde"
  228. ZeigeText 30
  229. Einblenden
  230. WarteTaste
  231. Ausblenden
  232.  
  233. Ende
  234.  
  235.  
  236. // ******* Interrupts *******
  237. // ein Patrouillenschiff ist verstorben
  238. SetMarke PatrolTot
  239. Sub F, 1
  240. Return
  241.  
  242. // ein Stationsverteidiger ist verstorben
  243. SetMarke StationTot
  244. Sub G, 1
  245. Return
  246.  
  247. // Die Patrouille hat uns entdeckt
  248. SetMarke PatrolEntdeckt
  249.  
  250. // zum Angriff schreien
  251. Text 1, 40, 8, 0
  252.  
  253. // die Aliens spitz machen
  254. ChgCtrl 15, Computer5
  255. ChgCtrl 16, Computer5
  256.  
  257. SpieleMusik "Musik/Story1"
  258.  
  259. // unseren Freund loslassen
  260. //ChgCtrl 1, Computer5
  261. Return
  262.  
  263. // die Station hat uns entdeckt
  264. SetMarke StationEntdeckt
  265.  
  266. // Anzahl Verteidiger setzen
  267. SetVar G, 4
  268.  
  269. // die Jungens halbaktiv setzen
  270. ChgCtrl 10, Station2, , StationAktiv
  271. ChgCtrl 11, Station2, , StationAktiv
  272. ChgCtrl 12, Station2, , StationAktiv
  273. ChgCtrl 13, Station2, , StationAktiv
  274. ChgCtrl 9, Computer1
  275. Return
  276.  
  277. // die Station wurde beschossen -> alle werden aggressiv
  278. SetMarke StationAktiv
  279.  
  280. // Anzahl Verteidiger setzen
  281. if(G=0) { SetVar G, 4 }
  282.  
  283. // die Jungens ganzaktiv setzen
  284. ChgCtrl 10, Station2
  285. ChgCtrl 11, Station2
  286. ChgCtrl 12, Computer5
  287. ChgChef 12, 9, 200
  288. ChgCtrl 13, Computer5
  289. ChgChef 13, 9, 200
  290. ChgCtrl 9, Computer1
  291. Return
  292.  
  293. // wir sind höchstselbst verstorben
  294. SetMarke WirTot
  295. Wait 20
  296. ZeigeInfo MFailed
  297. Wait 20
  298. EndMission -1
  299. Ende
  300.  
  301.